home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / textloader / install_tlng < prev    next >
Text File  |  1999-07-12  |  23KB  |  598 lines
  1. ; Installer script for the Diz-Explorer program
  2. ;
  3. ; Changed for the TextLoaderNG 2.00  (05.01.99)
  4. ;
  5. ;******************************************************************************
  6. ;     _  _      ____
  7. ;    / \/ \    /___ |   
  8. ;   / /\/\ \     _ ||
  9. ;  / / /\ \ \   |_|||
  10. ; / / /  \ \ \ ____||
  11. ;/_/ /_/\_\ \_\\____|
  12. ;
  13. ; $VER: 3.00_Diz-Explorer_Installer (Nov-24-1997) 
  14. ; 
  15. ; If you wish to use any part of this installer you must ask us.
  16. ;
  17. ; Installer    by Jochen Grus & Martin Gentile ©1996-1999 
  18. ; Diz-Explorer by Jochen Grus ©1997-99 
  19. ; Last Update: June-21-1999
  20. ;---------------------------------------
  21. ;        This could be your logo! 
  22. ;           __  __      _______ 
  23. ;          /  \/  \    /_____/ \
  24. ;         /  \  /  \  /  \  /  /
  25. ;        /  / \/ \  \/ /\ \/  / 
  26. ;       /  /  /  -\  \ \/ /  /  
  27. ;      /  /  /  __    \__/  /   
  28. ;      \_/  /__/  \_/\_____/    
  29. ;
  30. ;       Explorer Version 4.70
  31. ;
  32. ;          © 1997-1999 by: 
  33. ;
  34. ;   Jochen Grus and Martin Gentile
  35. ;---------------------------------------
  36. ;
  37. ;
  38. ;
  39. ;
  40. ; TextLoader by Pascal Gisin ©1994-99 
  41. ;
  42. ; TextLoaderNG by Jochen Grus & Pascal Gisin ©1999 
  43. ;
  44. ;
  45. ;  
  46. ;  
  47. ;******************************************************************************
  48. (procedure Explor (set JOH 1) ( (while (< JOH 4444)  (set JOH (+ JOH 1)) )  ) )
  49.  
  50. (procedure InformX
  51. (working (cat "\n\n"
  52.               " Word 6,7,8\n"
  53.               " WordPerfect\n"
  54.               " AmiWriter\n"
  55.               " WordWorth\n"
  56.               " FinalWriter\n"
  57.               " HTML\n"
  58.               " RTF\n"
  59.               " \n"
  60.          )           
  61. )
  62. )
  63. (procedure InformY
  64. (working (cat "\n\n"
  65.               "\n"
  66.               "\n"
  67.               "TextLoaderNG Version 2.09\n"
  68.               "\n"
  69.               "by\n"
  70.               "\n"
  71.               "   Jochen Grus & Pascal Gisin   \n"
  72.               "\n"
  73.          )           
  74. )
  75. )
  76. (InformY)
  77.  
  78. (Explor)(Explor)
  79. (InformX)(Explor)
  80. (InformY)(Explor) (InformX)(Explor)
  81. (InformY)(Explor) (InformX)(Explor)
  82. (InformY)(Explor) (InformX)(Explor)
  83. (InformY)(Explor) (InformX)(Explor)
  84. (InformY)(Explor) (InformX)(Explor)
  85. (InformY)(Explor) (InformX)(Explor)
  86. (InformY)(Explor) (InformX)(Explor)
  87. (InformY)(Explor) (Explor) (Explor)
  88.  
  89. ;*** System Stuff ***
  90. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  91. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  92. (set osver (/ (getversion "LIBS:version.library") 65536))
  93. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  94. (set fastmem (- totmem graphmem))
  95.  
  96. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  97. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  98. (if (= osver 41) (set workbench "3.5"))
  99.  
  100. (set cpu (database "cpu"))
  101. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  102. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  103. (if (= cpu 68040) (set #cpu 4)) 
  104. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  105. (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 6) )
  106.  
  107. (if (> cpu 68010)  (set #fpuGuess 0)  (set #fpuGuess 1) )
  108.    
  109. (set vernum1 (getversion "TextLoader")) (set ver2 (/ vernum1 65536)) 
  110. (set rev1 (- vernum1 (* ver1 65536) ) ) (set TextLoaderver (cat ver1 "2.09" rev1))
  111.  
  112. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  113. (set lan 0)
  114.  
  115. (if (= "english"     lanfound) (set lan 0))
  116. (if (= "deutsch"     lanfound) (set lan 1))
  117. (if (= "italiano"    lanfound) (set lan 2)) 
  118. (if (= "francais"    lanfound) (set lan 3)) 
  119. (if (= "svenska"     lanfound) (set lan 4)) 
  120. (if (= "norsk"       lanfound) (set lan 5)) 
  121. (if (= "nederlands"  lanfound) (set lan 6)) 
  122. (if (= "dansk"       lanfound) (set lan 7)) 
  123.  
  124. (set #English       "English")
  125. (set #Deutsch       "Deutsch")
  126. (set #Italiano     "Italiano")
  127. (set #Francais     "Francais")
  128. (set #Svenska       "Svenska")
  129. (set #Norsk           "Norsk")
  130. (set #Nederlands "Nederlands")
  131. (set #Dansk           "Dansk")
  132.  
  133. (set mfound 0) (set newicon1 1) 
  134. (set keeper 1) (set firsttime 0)
  135.  
  136. ;***********************************************************************
  137. ; The English Installation Strings for the TextLoaderNG
  138. ;***********************************************************************
  139. (set #about (cat "\n\n\n\nWelcome to the TextLoaderNG " TextLoaderver "\n\n\nCopyright © 1994-99 by\n\nJochen Grus & Pascal Gisin\n") )
  140. (set #about2 (cat "\n\n\n\n Contact:\n\n Jochen.Grus@rhein-main.net \n\n or\n\n PGISIN@nextron.ch\n\n\n\n") )
  141. (set #about3 (cat "\n\n\n\n Updates & Stuff at:\n\n www.nextron.ch/~force/\n\n or\n\nhttp://www.geocities.com/SiliconValley/Grid/8661/") )
  142. (set #aboutpacker (cat "\n\n\n\nNothing yet - go on with the installation... ") )
  143. (set #aboutdevices (cat "\n\n\n\nNow you should copy the font to the >Fonts< directory. ") )
  144. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N I N G -               Installation found the following file in the C-directory: LHACHECK. You should delete this file because it has the BBS-Trojan VIRUS!!! ") )
  145. (set #aboutdatatype1 (cat "\n\n\n\n- W A R N I N G -\n\n Installation found Datatypes.library in Libs:\n\n V45.4. or higher!  If the size of this file is 32748 (Normal 27kb) bytes you should know that this one a VIRUS!") )
  146. (set #askcpu "\nThe installer has found the following CPU:\n")
  147. (set #askcpu2 "\nThe installer program has found a CPU. The installer should show correctly what kind of cpu is installed...\n")
  148. (set #whereTextLoader "Where do you wish to install the TextLoader. A directory called 'Textloader' will be created if one is not there. If a copy of Textloader is found it will be backed up.")
  149. (set #filethere1 "\n\nThe installer has found an TextLoader version ")
  150. (set #filethere2 " at ")
  151. (set #filethere3 "\n\nThe file will be renamed to ")
  152. (set #filethere4 " and it will then be moved to ")
  153. (set #backuptoXXX "Back-UP to file named 'TextLoader.")
  154. (set #copyover "Copy Over Old Version")
  155. (set #oktodelete1 "\nIs it ok to delete the older TextLoader binary so that the TextLoader Directory can be made?\n")
  156. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ TextLoader binary so that the TextLoader Directory can be made?\n")
  157. (set #TextLoaderfound "\nThe Installer has found a copy of TextLoader already installed. What do you want to do?\n")
  158. (set #newicon "\nDo you wish to copy over The Textloader Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  159. (set #nonewicon  "No  - ToolTypes already set.")
  160. (set #yesnewicon "Yes - Copy over the old TextLoader Icon.")
  161. (set #whatcat "\nSelect the TextLoader Language catalog you wish to install.\n")
  162. (set #wherecat "\nWhere do you wish to install the TextLoader Language Catalog? There is no need for it yet. Default is ")
  163. (set #catnofind "Can not find this catalog in this TextLoader archive. No need for it yet.")
  164. (set #whatdocs "\nWhat TextLoader documentation would you like to install?\n")
  165. (set #wheredocs "Where would you like the TextLoader documentation you selected to be installed?")
  166. (set #byebye (cat "\nTextLoader Install Complete!\n\n" ))
  167. (set #setup_help
  168.         (cat
  169.             "TextLoaderNG needs an Assign in main directory to "
  170.             "properly setup. If you skip this pass you MUST "
  171.             "manually enter it later in your User-StartUp or "
  172.             "in a shell prior to run TextLoaderNG."
  173.         )
  174.     )
  175.  
  176.  
  177.  
  178. ;***********************************************************************
  179. ; The German Installation Strings for the TextLoaderNG
  180. ;***********************************************************************
  181.  
  182. (if (= lan 1)
  183. (
  184.  (set po 1)
  185.  
  186. (set #about (cat "\n\n\n\nWillkommen zum TextLoaderNG " TextLoaderver "\n\n\nCopyright © 1994-99 by\n\nJochen Grus & Pascal Gisin\n") )
  187. (set #about2 (cat "\n\n\n\n Kontakt:\n\n Jochen.Grus@rhein-main.net \n\n or\n\n PGISIN@nextron.ch\n\n\n\n") )
  188. (set #about3 (cat "\n\n\n\n Updates & Stuff at:\n\n www.nextron.ch/~force/\n\n or\n\nhttp://www.geocities.com/SiliconValley/Grid/8661/") )
  189. (set #aboutpacker (cat "\n\n\n\nNichts vorhanden - Weiter mit der Installation. ") )
  190. (set #aboutdevices (cat "\n\n\n\nJetzt sollten Sie den Font in das >Fonts< Verzeichnis installieren. ") )
  191. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N U N G -                                                                     Installation hat folgende Datei im C-Verzeichnis gefunden: LHACHECK. Sie sollten diese Datei entfernen, da es den VIRUS BBS-Trojan enthält!!! ") )
  192. (set #aboutdatatype1 (cat "\n\n\n\n- W A R N U N G -\n\n Installation hat folgende Datei im LIBS-Verzeichnis gefunden: DataTypes.library Version 45.4. Sie sollten diese Datei nach einen Virus überprüfen, wenn die Dateigröße 32748 bytes hat würde ich sie sofort löschen! ") )
  193. (set #askcpu "\nFolgender Prozessor wurde vom Installer erkannt:\n")
  194. (set #askcpu2 "\nDer Installer hat einen Prozessor gefunden. Es müßte den richtigen Typ korrekt erkannt haben! \n")
  195. (set #whereTextLoader "Wohin wollen Sie den TextLoaderNG installieren ? Ein Verzeichnis 'TextLoader' wird erzeugt, wenn es nicht existiert. Wenn bereits eine TextLoader Version vorhanden ist, kann diese gesichert werden.")
  196. (set #filethere1 "\n\nDas Installationsprogramm hat eine TextLoader Version gefunden")
  197. (set #filethere2 " at ")
  198. (set #filethere3 "\n\nDie Datei wird umbenannt in ")
  199. (set #filethere4 " und wird dann verschoben nach ")
  200. (set #backuptoXXX "sichern als Datei 'TextLoader.")
  201. (set #copyover "alte Version überschreiben")
  202. (set #oktodelete1 "\nSind Sie damit einverstanden, daß das alte TextLoader Hauptprogramm gelöscht, so daß das TextLoader Verzeichnis erstellt werden kann?\n")
  203. (set #oktodelete2 "\nSind Sie damit einverstanden, daß das alte _umbenannte_ TextLoader Hauptprogramm gelöscht wird, so daß das TextLoader Verzeichnis erstellt werden kann?\n")
  204. (set #TextLoaderfound "\nDas Installationsprogramm hat bereits eine installierte TextLoader Version gefunden. Was wollen Sie tun?\n")
  205. (set #newicon "\nWollen Sie das TextLoaderNG Piktogramm aus dem Archiv übernehmen? Wenn Sie bereits die Programmmerkmale verändert haben, wählen Sie bitte Nein.\n")
  206. (set #nonewicon  "Nein  - Programmmerkmale verändert.")
  207. (set #yesnewicon "Ja - Überschreibe das alte TextLoader Icon.")
  208. (set #whatcat "\nWählen Sie die Sprache, die installiert werden soll.\n")
  209. (set #wherecat "\nWohin wollen Sie die Sprachdatei installieren? Wird noch nicht gebraucht. Eingestellt ist ")
  210. (set #catnofind "Ich kann die passende Sprachdatei im Archiv nicht finden. Wird noch nicht gebraucht.")
  211. (set #whatdocs "\nWelche Anleitung zum TextLoaderNG wollen Sie installieren ?\n")
  212. (set #wheredocs "Wohin wollen Sie die gewählte Anleitung kopieren?")
  213. (set #byebye (cat "\nDie TextLoaderNG Installation wurde erfolgreich abgeschlossen!""\n\nViel Spaß beim arbeiten...\n\n" ))
  214. (set #setup_help
  215.         (cat
  216.             "Der TextLoaderNG braucht ein Assign um richtig arbeiten "
  217.             "zu können. Wenn Sie jetzt abbrechen müssen Sie später "
  218.             "diese Einträge manuell in der User-StartUp vornehmen "
  219.             "oder im Shell ein Assign herstellen um mit TextLoaderNG "
  220.                         "arbeiten zu können. "
  221.         )
  222.     )
  223.  
  224. ;***********************************************************************
  225. ; The Italiano Installation Strings for the TLNG
  226. ;***********************************************************************
  227. ;(set #setup1
  228. ;    (cat
  229. ;        "Per preparare l'ambiente del TLNG DEVO modificare la tua "
  230. ;        "User-StartUp aggiungendo i seguenti comandi:\n\n"
  231. ;    )
  232. ;)
  233. ;
  234. ;(set #setup2    "Se salti questo passo DOVRAI inserirli manualmente più tardi.")
  235. ;
  236. ;(set #setup_help
  237. ;    (cat
  238. ;        "TextLoader necessita di un assegnamento alla sua directory "
  239. ;        "principale al fine di funzionare correttamente. Se "
  240. ;        "salti questo passo DOVRAI inserirlo manualmente nella "
  241. ;        "tua User-StartUp o in una shell prima di eseguire il TLNG."
  242. ;    )
  243. ;)
  244. ;
  245. ;Please make your own Strings for the installation...  Si! I will do it!
  246. ;
  247. ;and send it to me...
  248. ;
  249. ;***********************************************************************
  250. ; The Francais Installation Strings for the TLNG
  251. ;***********************************************************************
  252. ;
  253. ;Please make your own Strings for the installation..  Qui! je vais le faire!
  254. ;
  255. ;and send it to me...
  256. ;
  257. ;***********************************************************************
  258. ; The Svenska Installation Strings for the TLNG
  259. ;***********************************************************************
  260. ;
  261. ;Please make your own Strings for the installation...  Yo! I will do it!
  262. ;
  263. ;and send it to me...
  264. ;
  265. ;***********************************************************************
  266. ; The Norsk Installation Strings for the TLNG
  267. ;***********************************************************************
  268. ;
  269. ;Please make your own Strings for the installation...  Yo! I will do it!
  270. ;
  271. ;and send it to me...
  272. ;
  273. ;***********************************************************************
  274. ; The Nederlands Installation Strings for the TLNG
  275. ;***********************************************************************
  276. ;
  277. ;Please make your own Strings for the installation...  Yo! Ick do dat!
  278. ;
  279. ;and send it to me...
  280. ;
  281. ;***********************************************************************
  282. ; The Dansk Installation Strings for the TLNG
  283. ;***********************************************************************
  284. ;
  285. ;Please make your own Strings for the installation...  Yo! I will do it!
  286. ;
  287. ;and send it to me...
  288. ;
  289.  
  290. )
  291. )
  292.  
  293. ;***********************************************************************
  294. ; Tach Mädelz and Jungz !
  295. ;***********************************************************************
  296. (message #about)
  297. (welcome) 
  298. (message #about2)
  299. (welcome) 
  300. (message #about3)
  301. (welcome) 
  302. ;********************************************************************
  303. ; Checking the CPU - Hello CPU are you there???
  304. ;********************************************************************
  305.   (set cpu (database "cpu"))
  306. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  307. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  308. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  309. (if (= @installer-version 0)
  310.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  311.   (if (= cpu 68060) (set #cpu 1))
  312.   (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 2) )
  313.   (if (= cpu 68060) (set #cpu 1))
  314. )
  315.  
  316. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060" "PC603 or PC604")
  317.             (prompt #askcpu)
  318.                     (help   #askcpu2)
  319.                   (default #cpu)
  320.       )
  321. )
  322.  
  323. (if (= cpuPick 0) (set cpuadd ".020")) (if (= cpuPick 1) (set cpuadd ".040")) (if (= cpuPick 2) (set cpuadd ".ppc"))
  324.  
  325. ;***********************************************************************
  326. ; Ask where to put the TLNG & Make a new directory if needed
  327. ;***********************************************************************
  328. (set TextLoaderdir  (askdir (prompt #whereTextLoader)
  329.                 (help   #whereTextLoader)
  330.                      (default "SYS:")
  331.                )  
  332. )
  333.  
  334. (set where TextLoaderdir)
  335.  
  336. ;***********************************************************************
  337. ; Check to see if the TLNG is already there, if so ask to backup
  338. ;***********************************************************************
  339. (if (= 1 (exists (tackon where "TextLoader") ) ) 
  340.   (
  341.     (set vernum1 (getversion (tackon where "TextLoader") ))
  342.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  343.     (set TextLoader_old (cat ver1 "." rev1))
  344.  
  345.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  346.                   (cat "TextLoader" TextLoader_old) #filethere4 (tackon TextLoaderdir "TextLoader") )
  347.     )
  348.     
  349.  
  350.     (copyfiles (source (tackon where "TextLoader"))
  351.                (dest where) 
  352.                (infos)
  353.                (newname (cat "TextLoader." TextLoader_old))
  354.     )
  355.     
  356.     (delete (tackon TextLoaderdir "TextLoader") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  357.  
  358.     (if (< (exists (tackon TextLoaderdir "TextLoader")) 2) (makedir (tackon TextLoaderdir "TextLoader") (infos)) )    
  359.  
  360.     (copyfiles (source (tackon where (cat "TextLoader." TextLoader_old) ))
  361.                        (dest (tackon TextLoaderdir "TextLoader")) 
  362.                        (infos)
  363.                
  364.     )
  365.  
  366.     (delete (tackon where (cat "TextLoader" TextLoader_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  367.  
  368.     ;(set firsttime 1)
  369.  
  370.   )
  371. )
  372.  
  373. (if (< (exists (tackon TextLoaderdir "TextLoader")) 2) (makedir (tackon TextLoaderdir "TextLoader") (infos)) )
  374. (set where (tackon TextLoaderdir "TextLoader"))
  375. (set @default-dest where)
  376.  
  377. ;********************************************************************
  378. ; Check for the old one and backup it or not...
  379. ;********************************************************************
  380. (if (exists (tackon where "TextLoader")) 
  381.   (
  382.       (set vernum1 (getversion (tackon where "TextLoader") ))
  383.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  384.       (set TextLoader_old (cat ver1 "x." rev1))
  385.  
  386.       (set keeper  (askchoice (choices  (cat #backuptoXXX TextLoader_old "'")  #copyover)
  387.                      (prompt #TextLoaderfound)
  388.                  (help   #TextLoaderfound)
  389.                      (default 0)
  390.                )
  391.       )    
  392.  
  393.  
  394.       (if (= keeper 0)
  395.          (copyfiles (source (tackon where "TextLoader"))
  396.                      (dest where) 
  397.                      (infos)
  398.                      (newname (cat "TextLoader" TextLoader_old))
  399.          )
  400.       )          
  401.  
  402.       (set firsttime 1)
  403.     
  404.   )
  405. )
  406.  
  407. ;********************************************************************
  408. ; Copy over the old TLNG file and Icon if wanted (Sure!)
  409. ;********************************************************************
  410. (copyfiles (source "TextLoaderNG") (dest where) (optional "nofail") )
  411. (copyfiles (source "RAM:TextLoader/TLNG.key") (dest where)  (optional "nofail") )
  412. (copyfiles (source "RAM:TextLoader/TLNG.prefs") (dest where)  (optional "nofail") )
  413. (copyfiles (source "RAM:TextLoader/TLNG.color") (dest where)  (optional "nofail") )
  414. (copyfiles (source "RAM:TextLoader/TLNG.language") (dest where)  (optional "nofail") )
  415. (copyfiles (source "RAM:TextLoader/TLNG.font") (dest where)  (optional "nofail") )
  416. (copyfiles (source "Ram:TextLoader/Extras") (dest (tackon where "Extras")) (all))
  417. (copyfiles (source "Ram:TextLoader/Rexx") (dest (tackon where "Rexx")) (all))
  418. (copyfiles (source "Ram:TextLoader/Locale") (dest (tackon where "Locale")) (all))
  419. (copyfiles (source "Ram:TextLoader/TextLoaderNG.guide") (dest where) (optional "nofail") )
  420. (copyfiles (source "Ram:TextLoader/TextLoaderNG-Eng.guide") (dest where) (optional "nofail") )
  421. (copyfiles (source "Ram:TextLoader/Jochen.Jpg") (dest where) (optional "nofail") )
  422. (copyfiles (source "Ram:TextLoader/Pascal.Jpg") (dest where) (optional "nofail") )
  423.  
  424. (if (= firsttime 0)  (copyfiles (source "TextLoaderNG.info") (dest where) (optional "nofail") ) )
  425.  
  426.  
  427. (if (OR (= keeper 0) (= (exists (tackon where "TextLoaderNG.info")) 0))
  428.   (
  429.   
  430.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  431.                            (prompt #newicon)
  432.                        (help   #newicon)
  433.                            (default 0)
  434.             )
  435.    )
  436.   
  437.    (if (= newicon 0) 
  438.      (copyfiles (source "TextLoaderNG.info") (dest where)  (optional "nofail") )
  439.    )
  440.  
  441.   )
  442.  
  443. )
  444.  
  445. ;********************************************************************
  446. ; Select and copy the files to the C-Directory...     Goil
  447. ;********************************************************************
  448.  
  449. ;********************************************************************
  450. ; Checking the Directories for viruses - Oh no... 
  451. ;********************************************************************
  452.    (if (exists "c:lhacheck")
  453. (message #aboutlhacheck))
  454. (set dataver (/ (getversion "LIBS:datatypes.library") 65536))
  455. (if (= dataver 45.4) (message #aboutdatatype1))
  456.  
  457. ;********************************************************************
  458. ; Select and copy the fonts to the fonts-Directory...   Joh Mann!  
  459. ;********************************************************************
  460. (message #aboutdevices)
  461.  
  462.   (
  463.     (copyfiles
  464.       (prompt "Copying the ThinPaz font")
  465.       (source "ram:TextLoader/Fonts")
  466.       (all)
  467.       (dest "Fonts:")
  468.       (confirm)
  469.       (help 
  470.         "This will copy the ThinPaz font to the >Fonts< directory. "
  471.         "If you copy it to the SYS:fonts directory, it will not check if there are already a font with this name! "
  472.         ""
  473.       )
  474.     )
  475. )
  476. ;********************************************************************
  477. ; Modify User-Startup   - Wow! It work`s...
  478. ;********************************************************************
  479. (set #setup1
  480.         (cat "\n\n\nTo get the TextLoader work right there has to be made "
  481.         "some changes to your User-Startup !\n\n"
  482.         command1
  483.         )
  484. )
  485.  
  486. (if (= @language "deutsch") (
  487.  
  488. (set #setup1
  489.         (cat "\n\n\nUm mit TextLoader richtig arbeiten zu können, muß "
  490.         "eine Änderung an der User-Startup vorgenommen werden.\n\n"
  491.         command1
  492.         )
  493. )
  494. ))
  495. (set #setup2
  496.         (cat
  497.             "If you skip this pass you MUST manually enter "
  498.             "it later."
  499.         )
  500.     )
  501.  
  502. (if (= @language "deutsch") (
  503.  
  504. (set #setup2
  505.         (cat
  506.             "Wenn Sie jetzt abrechen, müßen sie später die Änderung "
  507.             "manuell vornehmen !"
  508.         )
  509.     )
  510. ))
  511.  
  512. (startup "TextLoader"
  513.         (prompt
  514.             (cat
  515.                 #setup1
  516.                 "Assign TextLoader: \"" @default-dest "\"\n"
  517.                 "Path TextLoader: ADD\n\n"
  518.                 #setup2
  519.             )
  520.         )
  521.         (help #setup_help)
  522.         (command
  523.             "Assign TextLoader: \"" @default-dest "\"\n"
  524.             "Path TextLoader: ADD\n"
  525.         )
  526.     )
  527.  
  528.  
  529. (working "\nDeleteing temporary files.")
  530. (run "Delete RAM:TextLoader ALL FORCE QUIET")
  531. (run "Delete RAM:TextLoader/c ALL FORCE QUIET")
  532. (run "Delete RAM:TextLoader.info ALL FORCE QUIET")
  533.  
  534. (set #endnow (cat "Installation of TextLoader completed.\n"
  535.     "When the lines:\n" command1 "\ndoesn`t appear "
  536.     "in your Startup-Sequence or User-Startup, "
  537.     "please do it manually.\n\n"
  538.     "Best wishes...\n\n"
  539.     "Jochen Grus & Pascal Gisin"
  540.     ))
  541.  
  542. (if (= @language "deutsch") (
  543.  
  544.     (set #endnow (cat "\nInstallation von TextLoader beendet.\n\n"
  545.         "Falls die Zeilen:\n" #setup1 "\nnicht in Ihre Startup-Sequence bzw. "
  546.         "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  547.         "\n\nWir wünschen ihnen viel Spaß mit den TextLoader!\n\n"
  548.         "Jochen Grus & Pascal Gisin"
  549.     ))
  550. ))
  551.  
  552. ;********************************************************************************
  553. ; Ende - Bye - Fin - Finito - Fuck i must go now - see u in the next whisky bar. 
  554. ;********************************************************************************
  555.  
  556. (procedure Explor (set JOH 1) ( (while (< JOH 4444)  (set JOH (+ JOH 1)) )  ) )
  557.  
  558. (procedure InformX
  559. (working (cat "\n\n"
  560.               " Word 6,7,8\n"
  561.               " WordPerfect\n"
  562.               " AmiWriter\n"
  563.               " WordWorth\n"
  564.               " FinalWriter\n"
  565.               " HTML\n"
  566.               " RTF\n"
  567.               " \n"
  568.          )           
  569. )
  570. )
  571. (procedure InformY
  572. (working (cat "\n\n"
  573.               "\n"
  574.               "\n"
  575.               "TextLoaderNG Version 2.09\n"
  576.               "\n"
  577.               "by\n"
  578.               "\n"
  579.               "   Jochen Grus & Pascal Gisin   \n"
  580.               "\n"
  581.          )           
  582. )
  583. )
  584. (InformY)
  585.  
  586. (Explor)(Explor)
  587. (InformX)(Explor)
  588. (InformY)(Explor) (InformX)(Explor)
  589. (InformY)(Explor) (InformX)(Explor)
  590. (InformY)(Explor) (InformX)(Explor)
  591. (InformY)(Explor) (InformX)(Explor)
  592. (InformY)(Explor) (InformX)(Explor)
  593. (InformY)(Explor) (InformX)(Explor)
  594. (InformY)(Explor) (InformX)(Explor)
  595. (InformY)(Explor) (Explor) (Explor)
  596.  
  597. (exit #byebye)
  598.